home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 173bmrg.zip / CNFG1028.MRG < prev    next >
Text File  |  1990-10-28  |  10KB  |  205 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against 17.3A\CONFIG.BAS to produce 17.3B\CONFIG.BAS
  3. * 17.3A\CONFIG.BAS:  Date 8-26-1990  Size 161221 bytes
  4. * ------------[ Created 10-28-1990 12:00:10 ]------------
  5. * REPLACING old line(s) by new
  6.       ' $linesize: 132
  7. * ------[ first line different ]------
  8.       ' $title:  'CONFIG 17.3B, Copyright 1983-90 by D. Thomas Mack' ' KG102201
  9.       ' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINE 10000-10230
  10. * REPLACING old line(s) by new
  11. * ------[ first line different ]------
  12. 10000 ' CONFIG.BAS (RBBS-PC VERSION 17.3B)                           ' KG102201
  13.       ' by D.Thomas Mack
  14.       '   The Second Ring
  15.       '   39 Cranbury Dr.
  16.       '   Trumbull, CT. 06611
  17.       '
  18.       ' *******************************NOTICE**********************************
  19.       ' *  A limited license is granted to all users of this program and it's *
  20.       ' *  companion program, RBBS-PC (ver. 17.3B), to make copies of this    *
  21.       ' *  program and distribute the copies to other users, on the following *
  22.       ' *  conditions                                                         *
  23.       ' *   1.   The copyright notices contained within this program are not  *
  24.       ' *        altered, bypassed, or removed.                               *
  25.       ' *   2.   The program is not to be disrtibuted to others in modified   *
  26.       ' *        form (i.e. the line numbers must remain the same).           *
  27.       ' *   3.   No fee is charged (or any other consideration received)      *
  28.       ' *        for coping or distributing these programs without an express *
  29.       ' *        written agreement with D. Thomas Mack, The Second Ring,      *
  30.       ' *        39 Cranbury Dr., Trumbul, CT. 06611                          *
  31.       ' *                                                                     *
  32.       ' *      Copyright (c) 1983-1990 D. Thomas Mack, The Second Ring        *
  33.       ' ***********************************************************************
  34. '     $INCLUDE: 'CNFG-VAR.BAS'
  35.       CLEAR
  36. '
  37. ' ****************************************************************************
  38. ' *  DISPLAY THE CONFIG TITLE PAGE
  39. ' ****************************************************************************
  40. '
  41.       WIDTH 80
  42.       CLS
  43.       NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
  44.       NONE.PICKED$ = "<none>"    ' Standardized message
  45.       NUM.FILES = 8
  46.       NUM.GLOBAL = 4
  47.       NUM.MAIN = 18
  48.       NUM.SYSOP = 7
  49.       NUM.UTILITY = 12
  50.       NUM.LIBRARY = 7
  51.       VERSION.NUMBER$ = "17.3B"
  52.       I! = FRE(C$)
  53.       KEY OFF
  54.       CALL CNFGINIT
  55.       PRINT TAB(60)"tm"
  56.       PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  57.       PRINT
  58.       PRINT TAB(17)"Capital PC User Group User-Supported Software"
  59.       PRINT
  60.       X$ = "    "
  61.       PRINT "Copyright (c) 1983-1990 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
  62.       PRINT
  63.       PRINT X$;"    If you use RBBS-PC " + CONFIG.VERSION$ + " and find"
  64.       PRINT X$;"    it valuable, consider contributing to"
  65.       PRINT ""
  66.       PRINT X$;"                 Capital PC Software Exchange"
  67.       PRINT X$;"                     Post Office Box 6128"
  68.       PRINT X$;"                Silver Spring, Maryland  20906"
  69.       PRINT
  70.       PRINT X$;"    You are free to copy and share RBBS-PC provided"
  71.       PRINT X$;"      1.  This program is not distributed in modified form."
  72.       PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
  73. * REPLACING old line(s) by new
  74. 25850 CALL ASKRO ("Enter " + A$ + " DOS sub-directory name (CR to end). ",24,HJ$)
  75.       CALL ALLCAPS (HJ$)
  76.       IF LEN(HJ$) < 1 THEN _
  77.          RETURN
  78. * ------[ first line different ]------
  79.       X$ = HJ$                                                       ' DA102402
  80.       IF LEN(X$) = 2 AND INSTR(X$,":") = 2 THEN _                    ' DA102402
  81.          RETURN
  82.       I = INSTR(X$,":")                                              ' DA102402
  83.       IF I = 2 THEN _                                                ' DA102402
  84.          I = I + 1 _                                                 ' DA102402
  85.       ELSE _                                                         ' DA102402
  86.          GOTO 25850                                                  ' DA102402
  87.       WHILE I <= LEN(X$)                                             ' DA102402
  88.          Y = INSTR(I,X$,"\")                                         ' DA102402
  89.          IF Y = 0 THEN _                                             ' DA102402
  90.             Y = LEN(X$) + 1                                          ' DA102402
  91.          L1 = Y - I                                                  ' DA102402
  92.          GOSUB 25876                                                 ' DA102402
  93.          IF I <> 0 THEN _                                            ' DA102402
  94.             GOTO 25850                                               ' DA102402
  95.          I = Y + 1                                                   ' DA102402
  96.       WEND                                                           ' DA102402
  97.       RETURN                                                         ' DA102402
  98. * REPLACING old line(s) by new
  99. 25876 HJ$ = MID$(X$,I,L1)
  100. * ------[ first line different ]------
  101.       I = 1                                                          ' DA102402
  102.       IF LEN(HJ$) > 12 THEN _
  103.          RETURN                                                      ' DA102402
  104.       L1 = INSTR(HJ$,".")
  105.       IF L1 = 0 AND (LEN(HJ$) > 8) THEN _                            ' DA102402
  106.          RETURN                                                      ' DA102402
  107.       IF L1 > 8 THEN _                                               ' DA102402
  108.          RETURN                                                      ' DA102402
  109.       IF L1 > 0 AND (LEN(HJ$) - L1 > 3) THEN _                       ' DA102402
  110.          RETURN                                                      ' DA102402
  111. * REPLACING old line(s) by new
  112. 25920 FOR J = 1 TO LEN(HJ$)
  113.          X = ASC(MID$(HJ$,J,1))
  114.          IF (X > 63 AND X < 91) THEN _
  115.             GOTO 26020
  116.          IF (X > 47 AND X < 58) THEN _
  117.             GOTO 26020
  118.          IF (X = 33) THEN _
  119.             GOTO 26020
  120.          IF (X > 34 AND X < 42) THEN _
  121.             GOTO 26020
  122.          IF (X > 43 AND X < 47) THEN _
  123.             GOTO 26020
  124.          IF (X > 96 AND X < 124) THEN _
  125.             GOTO 26020
  126.          IF (X = 125) THEN _
  127.             GOTO 26020
  128. * ------[ first line different ]------
  129.          I = 1                                                       ' DA102402
  130.          RETURN                                                      ' DA102402
  131. * REPLACING old line(s) by new
  132. 26020 NEXT
  133. * ------[ first line different ]------
  134.       I = 0                                                          ' DA102402
  135.       RETURN
  136. '
  137. ' * VERIFY THAT THE DISK DRIVE IS ONE ELIGIBLE FOR DOWNLOADING
  138. '
  139. * REPLACING old line(s) by new
  140. 60010 '* HANDLE ERROR CONDITIONS *
  141.       IF ERR = 62 AND _
  142.         (ERL = 11600 OR _
  143.          ERL = 11620 OR _
  144.          ERL = 11640 OR _
  145.          ERL = 11660 OR _
  146.          ERL = 11680 OR _
  147.          ERL = 11700 OR _
  148.          ERL = 11705 OR _
  149.          ERL = 11706) THEN _
  150.          PRINT CONFIG.FILENAME$ + _
  151.                " from a version earlier than " + CONFIG.VERSION$ + " on default drive." : _
  152.          PRINT "Please delete and rerun CONFIG." : _
  153.          RESUME 60340
  154.       IF ERL = 15780 AND ERR = 5 AND _
  155.          INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _
  156.          RESUME 16073
  157.       IF ERL = 22340 THEN _                                          ' KG073103
  158.          RESUME 22342                                                ' KG073103
  159.       IF ERL = 31000 AND ERR = 58 THEN _
  160.          KILL A$ : _
  161.          RESUME 31000
  162.       IF ERL = 31030 AND ERR = 58 THEN _
  163.          KILL A$ : _
  164.          RESUME 31030
  165.       IF ERL = 22120 AND ERR = 6 THEN _
  166.          RESUME 22100
  167. * ------[ first line different ]------
  168.       IF ERL = 23738 AND ERR = 57 THEN _                             ' KG101203
  169.          RESUME 23738                                                ' KG101203
  170.       IF ERL = 24750 AND ERR = 58 THEN _
  171.          KILL A$ : _
  172.          RESUME 24750
  173.       IF ERL = 31020 THEN _
  174.          PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;".  Error";STR$(ERR):_
  175.          RESUME 31035
  176.       IF ERL = 50490 AND ERR = 58 THEN  _
  177.          RESUME 50500
  178.       IF ERL = 50540 AND ERR = 58 THEN  _
  179.          RESUME 50550
  180.       IF ERL = 50490 OR ERL = 50540 THEN _
  181.          RESUME 15230
  182.       IF ERL = 60471 THEN _
  183.          IF ERR <> 76 THEN _
  184.             RESUME 60478 _
  185.          ELSE RESUME 60474
  186.       IF ERL = 60480 THEN _
  187.          PRINT "ERROR -";ERR;" UNABLE TO CREATE SUBDIRECTORY" : _
  188.          RESUME 60478
  189.       IF ERR = 61 THEN _
  190.          PRINT "ERROR - IBM DOS DISKETTE FULL " : _
  191.          RESUME 60340
  192.       IF ERR = 67 THEN _
  193.          PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
  194.          RESUME 60340
  195.       IF ERR = 70 THEN _
  196.          PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
  197.          RESUME 60340
  198.       IF ERR = 71 THEN _
  199.          PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE"  : _
  200.          RESUME 60340
  201.       IF ERR = 72 THEN _
  202.          PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
  203.          RESUME 60340
  204.       PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$
  205.